home *** CD-ROM | disk | FTP | other *** search
/ Aminet 6 / Aminet 6 - June 1995.iso / Aminet / text / edit / EdgeTexScripts.lha / nexterror.edge < prev    next >
Encoding:
Text File  |  1995-04-14  |  1.3 KB  |  60 lines
  1. /*Log Search*/
  2. options results
  3. getenvvar _FE_Name
  4. fenam=result
  5. ch=upper(right(fenam,4))
  6. if compare(ch,'.TEX')==0 then na=left(fenam,length(fenam)-4)
  7.     else na=fenam
  8. nam=na||'.log'
  9. getenvvar _FE_Path
  10. path=result
  11. name=path||nam
  12. addressof fullname name
  13. if ~(rc==0) then do
  14.     address command 'rename' name name
  15.     if ~(rc==0) then do
  16.         requestnotify title ERROR string '.log file does not exist.  TeX file first'
  17.         exit
  18.     end
  19.     new
  20.     address value result
  21.     open files name
  22.     addressof fullname name
  23.     activatewindow port result
  24.     window front
  25.     changewindow leftedge 0 topedge 233 width 668 height 230
  26.     addressof fullname path||fenam
  27.     activatewindow port result
  28.     address value result
  29.     changewindow leftedge 0 topedge 13 width 668 height 220
  30.     addressof fullname name
  31.     activatewindow port result
  32.     address VALUE result
  33.   end
  34. else do 
  35.     addressof fullname name
  36.     activatewindow port result
  37.     address VALUE result
  38. end
  39. putenvvar _FE_FindString l.
  40. text=''
  41. do while ~(left(text,2)=='l.')
  42.     findnext
  43.     if ~(rc==0) then do
  44.         requestnotify title Finished string 'No More Errors in Log.'
  45.         exit
  46.     end
  47.     position sol
  48.     markblock
  49.     position eol
  50.     copy resultbuff
  51.     text=result
  52. end
  53. te=right(text,length(text)-2)
  54. i=index(te,' ')
  55. li=left(te,i-1)
  56. addressof fullname path||fenam
  57. activatewindow port result
  58. address value result
  59. gotoline li
  60.